home *** CD-ROM | disk | FTP | other *** search
/ Hackers Handbook - Millenium Edition / Hackers Handbook.iso / files / c_scripts / xcrack.perl < prev    next >
Encoding:
Text File  |  1998-12-05  |  2.2 KB  |  70 lines
  1. #-- Cut Here --
  2. # [ http://www.rootshell.com/ ]
  3. # ---------------------------------------------------
  4. #  xcrack.pl -- Unix/Linux Password Cracker -- V0.11
  5. #   By manicx -- 13th Oct 98 -- email from site
  6. # Get the latest from http://www.infowar.co.uk/manicx
  7. #    usage = perl xcrack.pl PASSWORDFILE WORDFILE
  8. # ---------------------------------------------------
  9. # Only improvements are the splits into subs
  10. # quickest results from using smaller wordfiles under 1 or 2mb
  11. # using .bat files or whatever
  12. # 
  13. # start xcrack.pl
  14. # system("cls");
  15. print ("\n***********************************************");
  16. print ("\n*                  Xcrack V0.11               *");
  17. print ("\n*       http://www.infowar.co.uk/manicx       *");
  18. print ("\n***********************************************\n");
  19.  
  20. # Print simple statement how to use program if no arguments
  21. if ($#ARGV < 0) {
  22.   usage();
  23.   exit;
  24. }
  25.  
  26. $passlist = $ARGV[0];     # Our password File
  27. $wordlist = $ARGV[1];     # Our word list
  28.  
  29. # ------------- Main Start --------------
  30. getpasslist($passlist, $wordlist);
  31.  
  32. #------------------------------------------------------------
  33. sub getpasslist{
  34. open (PWD, $passlist) or die print " No Good Name for password File ", $passlist, "\n";
  35. while (<PWD>)
  36.   {                         # data in password file split by :'s
  37.   ($fname, $encrypted, $uid, $gid, $cos, $home, $shell) = split ( /:/);
  38.   getwordlist($encrypted, $fname);  
  39.   }
  40.   close (PWD);  #closes the password file
  41. }
  42.  
  43. #------------------------------------------------------------
  44. sub getwordlist{
  45. open (WRD, $wordlist) or die print " No Good Name for wordfile ", $wordlist, "\n" ;
  46.      while (<WRD>)
  47.         {
  48.         ($password) = split (/,/);
  49.         chop($password);
  50.         $encword = crypt ($password, $encrypted); 
  51.         if ($encword eq $encrypted)
  52.            {
  53.            print "Account :",$fname, "    \t ------ \aPassword : ", $password, "\n";
  54.            }
  55.          }
  56.          close (WRD);  #closes the wordlist
  57.  }
  58.  
  59. #------------------------------------------------------------
  60. sub usage {
  61.  print "usage = perl xcrack.pl PASSWORDFILE WORDFILE\n";
  62. }
  63.  
  64. print ("\nFinished .......$wordlist");
  65.  
  66. # perl xcrack.txt password.txt words.txt
  67.  
  68. # End xcrack.pl 
  69.  
  70.